setClass("HARandEClusterScore",contains="ExternalClusterScore",
		prototype=prototype(
				.description="Hubert Arabie Adjusted Rand  External Score class"
		
		)
)  

#global functions
#methods

#calclustes Hubert Arabie adjusted Rand Index 
#for given classes and clusters
setMethod("ScoreSet",
		signature="HARandEClusterScore",
		definition=function(.Object,inputSet,clusters,...){
			#check for X, Y and clusters
			callNextMethod(.Object,inputSet,clusters,...)
			
			ARI <- adjustedRand(inputSet$Y,clusters,"HA")
			
			
			
			return(ARI) # [-1,1] 1-good matched
		}
)   
